home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 11 / FM Towns Free Software Collection 11.iso / t_os / tool / multiv / src / drv_save.bas < prev    next >
Encoding:
BASIC Source File  |  1995-01-18  |  336 b   |  12 lines
  1. 10000 SCREEN@ 0:CLS
  2. 10010 CLEAR
  3. 10020 LINE(0,0)-(639,479),PSET,%15,BF
  4. 10030 LOAD@"\DRV_NAME.TIF"
  5. 10040 DIM DNAME(INT((INT((5+7)/8)*7*4+4-1)/4)*26)
  6. 10050 FOR I=0 TO 25
  7. 10060   GET@A(5*I,0)-(5*I+4,6),DNAME,7*I
  8. 10070 NEXT:PUT@A(100,10)-(104,16),DNAME
  9. 10080 KILL "\DRV_NAME.OAX"
  10. 10090 SAVE@ "\DRV_NAME.OAX",DNAME
  11. 10100 CLS:CLEAR
  12.